C o n t r o l s   C l e a r T e x t B o x 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 
 
 B u t t o n   1   L a b e l   P r i m e N u m b e r 
 
 B u t t o n   P r i m e N u m b e r   C o l o r   G r e e n 
 
 S t o p 
 
 
 
 L a b e l   P r i m e N u m b e r 
 
 	 V a r i a b l e   N u m e r i c   n 1   =   2 
 
 	 V a r i a b l e   N u m e r i c   n 2   =   2 
 
 	 V a r i a b l e   N u m e r i c   i s P r i m e   =   1 
 
 	 
 
 	 F o r   v 1   =   2   T o   I n f i n i t y 
 
 	 	 
 
 	 	 
 
 	 	 n 2   =   2 
 
 	 	 i s P r i m e   =   1 
 
 	 	 
 
 	 	 F o r   v 2   =   2   T o   n 1 - 1 
 
 	 	 	 I f   M o d ( n 1 ,   n 2 )   =   0 
 
 	 	 	 	 i s P r i m e   =   0 
 
 	 	 	 	 E x i t 
 
 	 	 	 E n d I f 
 
 	 	 	 
 
 	 	 	 n 2   =   n 2   +   1 
 
 	 	 N e x t 
 
 	 	 
 
 	 	 I f   i s P r i m e   =   1 
 
 	 	 	 P r i n t   n 1   +   "   " 
 
 	 	 E n d I f 
 
 	 	 
 
 	 	 n 1   =   n 1   +   1 
 
 	 N e x t 
 
 	 
 
 R e t u r n 
 
 
 
 
 
 